home *** CD-ROM | disk | FTP | other *** search
/ SuperModels in the Rainforest / SuperModels in the Rainforest.iso / rain.dxr / 00054_FullScreen Score Script.ls < prev    next >
Encoding:
Text File  |  1995-10-13  |  1.2 KB  |  48 lines
  1. on exitFrame
  2.   repeat with x = 3 to 5
  3.     if rollOver(x) then
  4.       set the cursor of sprite x to [565, 566]
  5.     end if
  6.   end repeat
  7.   go(the frame)
  8. end
  9.  
  10. on keyDown
  11.   global giVid2Sprite, giVidSprite, giTempVid2Cast, giTempVidCast
  12.   set tempSprite to 0
  13.   if the visible of sprite giVid2Sprite = 1 then
  14.     set tempSprite to giVid2Sprite
  15.     set tempCast to giTempVid2Cast
  16.   else
  17.     if the visible of sprite giVidSprite = 1 then
  18.       set tempSprite to giVidSprite
  19.       set tempCast to giTempVidCast
  20.     end if
  21.   end if
  22.   if tempSprite then
  23.     set the sound of cast tempCast to 0
  24.     if the keyCode = 123 then
  25.       set the movieRate of sprite tempSprite to -1
  26.     else
  27.       if the keyCode = 124 then
  28.         set the movieRate of sprite tempSprite to 1
  29.       end if
  30.     end if
  31.   end if
  32. end
  33.  
  34. on keyUp
  35.   global giVid2Sprite, giVidSprite
  36.   set tempSprite to 0
  37.   if the visible of sprite giVid2Sprite = 1 then
  38.     set tempSprite to giVid2Sprite
  39.   else
  40.     if the visible of sprite giVidSprite = 1 then
  41.       set tempSprite to giVidSprite
  42.     end if
  43.   end if
  44.   if ((the keyCode = 123) or (the keyCode = 124)) and tempSprite then
  45.     set the movieRate of sprite tempSprite to 0
  46.   end if
  47. end
  48.